home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / IT.LSP < prev    next >
Text File  |  1992-09-13  |  781b  |  23 lines
  1. ;Fast import text (set style first)
  2. ;
  3. ;
  4. (defun c:it(/ txt sp th lns stl ls dt)
  5. (princ "\nenter filename to read. If not on current path, enter full path. ")
  6. (Setq txt(open(getstring "\nFile name [filename.txt]: ")"r"))
  7. (setq sp(getpoint "\nText starting point: "))
  8. (setq dt(read-line txt))
  9. (command "text" sp "" dt)
  10. (while(/= dt nil)
  11. (setq dt(read-line txt))
  12. (command "text" "" dt))
  13. (close txt)(princ))
  14. (princ "\n.............loaded.")
  15. (princ "\n")
  16. (princ "\nThis text importing routine defaults to the current style.")
  17. (princ "\n")
  18. (princ "\nIf you want to, set style before executing.  We found")
  19. (princ "\n")
  20. (princ "\nit faster to sacrifice style control to eliminate the possibility")
  21. (princ "\n")
  22. (princ "\nof a regen on a large drawing file.")
  23. (princ)